home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS11.ADF / Modula-2 / Trails / Fixes.MOD < prev    next >
Text File  |  1986-08-05  |  760b  |  37 lines
  1. (*
  2.     This module implements fixes to some of TDI's
  3.     interface routines to ROM Kernel.
  4.  
  5.     Created: 4/9/86 by TDI
  6.  
  7.     Modified:
  8.  
  9. *)
  10. IMPLEMENTATION MODULE Fixes;
  11.  FROM SYSTEM IMPORT CODE, SETREG, REGISTER, ADDRESS;
  12.  FROM Tasks IMPORT SignalSet;
  13.  FROM Ports IMPORT MsgPortPtr, MessagePtr;
  14.  
  15.  CONST
  16.    AbsExecBase = 4;
  17.  VAR
  18.    ExecBase [AbsExecBase]: ADDRESS;
  19.  
  20.  PROCEDURE GetMsg (port: MsgPortPtr): MessagePtr;
  21.  BEGIN
  22.    CODE (2F0EH);
  23.    SETREG (8, port); SETREG (14, ExecBase);
  24.    CODE (4EAEH, (-30-342), 2C5FH);
  25.    RETURN MessagePtr (REGISTER (0));
  26.  END GetMsg;
  27.  
  28.  PROCEDURE Wait (sig: SignalSet): SignalSet;
  29.  BEGIN
  30.    CODE (2F0EH);
  31.    SETREG (0, sig); SETREG (14, ExecBase);
  32.    CODE (4EAEH, (-30-288),2C5FH);
  33.    RETURN SignalSet (REGISTER (0));
  34.  END Wait;
  35.  
  36. END Fixes.
  37.